0 REM THE TRANSACTOR VOLUME 6 ISSUE 02        PAGE 60
100 REM    USING DEVICE #9 DRIVE #0 TO
110 REM    SIMULATE DEVICE #8, DRIVE #1
120 REM    COPYRIGHT: G. NEUFELD, 1984
130 :
140 K=828:SUM=0
150 READ X:IF X<0 GOTO 180
160 POKE K,X:SUM=SUM+X:K=K+1:GOTO 150
170 :
180 IF SUM<>13992 THEN PRINT"BAD DATA":STOP
190 SYS 828
200 PRINT"ROUTINE ACTIVATED"
210 :
220 DATA 160,   1, 185,  48,   3,  72, 185
230 DATA 123,   3, 153,  48,   3, 104, 153
240 DATA 123,   3, 185,  50,   3,  72, 185
250 DATA 132,   3, 153,  50,   3, 104, 153
260 DATA 132,   3, 185,  26,   3,  72, 185
270 DATA 112,   3, 153,  26,   3, 104, 153
280 DATA 112,   3, 136,  16, 211,  96,  32
290 DATA 137,   3,  32, 108,   3,  76, 180
300 DATA   3,  32, 137,   3, 169,   0,  32
310 DATA 117,   3,  76, 180,   3,  32, 137
320 DATA   3,  32, 128,   3,  76, 180,   3
330 DATA 160, 255, 132, 251, 165, 186, 201
340 DATA   8, 208,  32, 200, 177, 187, 201
350 DATA  49, 240,   7, 200, 177, 187, 201
360 DATA  49, 208,  18, 169,  48, 145, 187
370 DATA 169,   9, 133, 186, 132, 251, 165
380 DATA 187, 133, 252, 165, 188, 133, 253
390 DATA  96, 164, 251,  48,   4, 169,  49
400 DATA 145, 252,  96, -99